while (<*.m>) {
    $fname = $_;
    open(F,$fname);
    @a = <F>;
    close(F);
    foreach my $line (@a){
	$line =~s/'deriv1'/'deriv1f'/g;
	$line =~s/elelmult_eachcol/elelmult_lastindx/g;
	$line =~ s/d\(:\),/d,/g;
    }
    open(F,">$fname");
    print F @a;
    close(F);
}
